SEITE 



1 
2 
3 
4 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
25 
26 

27 
28 
29 

30 
31 

32 
33 

34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
53, 
52 
53 
54 
55 
56 
57 
58 



* GENERAL AUT 
*************** 
* 

PROGRAM MAM 



MODEL NUMBE 

PURPOSE 

PROGRAMMER 



* 
* 
* 
* 
* 
* 
* 
* 
*************** 

* 

* RV DATE 

* 

* 01 11/16/70 

* 

*************** 
*************** 
HDNG M 
*************** 
♦STATUS-VERSION 
* 
•FUNCTION/OPERA 



QMATlOfJ, INC, ALL RIGHTS RESERVED 

*********************************** 

c FRH-Q9 
R 8T0C9 

FORTRAN PHASE*Q9 

DICK KALLMANN, MOD^-MARK ELFIELD 
** REVISION L'^T ************** 
SCO BY RfcASON FOR CHANGE 

NONE RPH INITIAL RELEASE 

*********************************** 
***************** ****************** 
PX FORTRAN ** DATA STATEMENT 
*********************************** 
1, MODIFICATION 



EXAMINES 
OTHER STA 
CHECKS EA 
CHECKS TO 
BEEN ENTE 
CHECKS TO 

IN THE DA 
DIMENSION 
CHECKS EA 
REFORMATS 
DATA GPOU 



* * 
* 

* * 

* * 
* 

* * 
* 
* 

* * 

* * 
* 
* 

♦ENTRY P0INTS- 

* * BEGIN-PHA 

* VIA 

* REG 
* 

♦INPUT- 

* * THE STATE 

* * THE SYMBO 
* 

*0UTPUT- 

* * THE UPDAT 

* * THE UPDAT 



TION- 

QNLY DATA STATfcMfcNTS, BYPASSING ALL 

TEMENTS, 

CH VARIABLE h OR VALIDITY 

SEE THAT EACH VARJABLE NAME HAS 
RED INTO'THE SyMbOL TABLE, 

ENSURE THAT DIMENSIONING INDICATED 
TA STATEMENT DoEb NOT EXCEED THE 
3 INDICATED bY THE SYMBOL TBI. ENTRY 
CH DATA STMNl F ON CORRECT SYNTAX 

THE DATA SThNT INTO A STRInC OF 
PS, 



SE 9 IS READ INTU CORE BY PHASE 9 
THE RCLRX'RUUTINE, EXECUTION IS 
IN AT LOCATIUN BEGIN, 



IENT STRING 
L TABLE 



ED STATEMENT STRING 
ED SYMBOL TABLE 



•EXTERNAL REFERENCES- 

* SUBROUTINES- 

* * ROLRX 

* OTHER FORTRAN PHASES- 

* * NONE 
* 

•EXITS- 

* NORMAL- 

* * EXITS Ta THE SUCCEEDING phase via a cal, 



SEITE 



60 


# 


TO Tl- 


IE TOLKX ! 


?uu 


1 f Nfc, 


61 


* 










62 


* ERROR- 








63 


* 


* OVERLAP-DOES 


NO 


PROCESSING AND EXITS 


64 


* 


NORMALLY 






65 


* 


* ERRORS DETECTED 


BY THlb PHA^E ARE 


66 


* 


75, 


76, 77, 


78, 


79, 80, AND 82, 


67 


* 










68 


*TABLES/WORK 


AREAS- 






6 9 


* 


* THE STATEMENT 


strinu, the symbol taple, 


70 


* 


AND THE FORTRAN 


COMMUNICATIONS AREA, 


71 
72 


* 
*ATTRIBUTES-NONE 






73 


* 










74 


♦NOTES 


i-N/A 








75 


* 










76 


************************************************** 


77 




HDNG 


MPX FQRTRA 


,N ** DATA STATEMENT 


78 


* 










79 





A BS- — 7^~ F Cp/2^ 




"?T0 
81 


* 
* 


system 


AND FORTRAN 


EQUATEb 


82 


* 










33 


MEMRY 


EQU 


fffff- CfPi 


MAXIMUM CORE SIZE 


8 4 


PHSIZ 


EQU 


4*320 




MAXIMUM PHASE SIZE 


81? 


OVERL, 


EQU 


HEMRY-PRSJ 


I PHASES 2-29 STAUT 


36 


FCQM 


EQU 


0\/ERL-22 


FORTRAN COMM, TAHL = 


87 


PHNTB 


EQU 


FCOM^56 




PHASE TABLE 


88 


ROURX 


EQU 


PHNTB-50 


INTERPHASE CALL 


39 
og 


* 
* 


fortrai 


vj COMMUNICATION AREA 


91 


* 










°2 




ORG 


FCOM 




BEGJN PHASE 


03 
94 


* 
SOF"S 


BSS 


1 




STAwT 01- STRING 


95 


EOFS 


BSS 


1 




END OF b THING 


96 


SOTST 


BSS 


1 




ST'AKT OF SYMBOL TABLE 


97 


sqfns 


BSS 


1 




SfAHT OR NON«STMNT NUMBERS 


98 


SOFXT 


BSS 


1 




S?AKT OF SUBSC TEMPS 


99 


SQEGT 


BSS 


1 




STAkT OF GENERATED TEMPS' 


100 


E0FST 


BSS 


1 




END "OF SYMBOL TABLE 


101 


COMON 


BSS 


1 




NEX1 AVAILABLE COMMON 


102 


CSIZE 


BSS 


1 




SlZfc OF COMMON 


103 


ERROR 


BSS 


1 




OVEKLA p ERROR 


104 


fmame 


BSS 


1 




PKOliRAM NAME 


105 




BSS 


1 




* 


106 


SORF 


BSS 


1 




SUBh {-) OR FUNCTION ( + ) 


107 


CCWD 


BSS 


1 




CONTROL CARD WORD 


108 


* 




BIT 


15 


TRANSFER TRACE 


109 


* 




BIT 


14 


ARITHMETIC TRACE 


110 


* 




BIT 


13 


EXTENDED PRECISION 


111 


* 




BIT 


12 


LIS) SYMBOL TABLE 


112 


* 




BIT 


11 


LIS? SUBPROGRAM NAME'S 


113 


* 




BIT 


10 


LIS? SOURCE PROGRAM 


114 


* 




BIT 


9 


ONE'WQRU INTEGERS 


115 


* 




BIT 


8 


PUNCH 


116 


* 




BIT 


7 


NONRRQCESS PROGRAM 


117 


IOCS 


BSS 


1 




IOCb CONTROL CARD WORD 


118 
119 


* 
* 


SEE 


PHASE ONE 1 


~OR BIT PATTERNS 



SEITE 3 



120 
131 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 

135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
IPO 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 

175 
176 
177 
178 
179 



DFCNT BSS 

# 

LCOMN BSS 

ICCFR BSS 

BSS 



2 



DEFjNE nL E c O u NT 
Silt OF INSKbL COMMON 
IOCS CONTROL CARD ERROR 
SYSlEM LOADER USE 



* 



* 
* 
* 



HDNG 
ORG 



END OF FuRTRAN COMMUNICATION 

AREA 
MPX FORTRAN ** DATA STATEMENT 
OV'ERL PHASE OKlBlN 



THIS PHASE PROCESSES THE UATA STATEMENT, INPUT I 



* WHER 

* SYM8 

* EXCE 

* CONV 

* 
* 



ST- ID MAME1. » . . ,NAMEN/C0N1, , . ,CONM/ 
E NAMES HAVE 10T YET bEEN LOOKED UP If! TH = : 
OL LIST, REAL CONSTANTS AKE AL K EADY CONVENE 
PT FOR SIGN, AND INTEGERS ARE MOT YET 
ERTED, OUTPUT IS OF THE FURM 

ST-ID DATAGROUP HUR CON* NAMEl DATAGROUP HDR 
C0N2 NAME2, t tDATAGROUK HDH qONN MMEN 



# 

* 
* 
* 
* 



WHER 

BIT 

LENG 

WORD 

POIN 

CONV 



BEGIN 



E THE 
1-7 D 
TH, B 
FOLL 
T TO 
ERTED 
HDNG 
LD 
BSC 
LD 
STO 
LDX 
BSI 
LD 
STO 
LD 
AND 
SRA 
A 

STO 
STO 
LD 
SLA 
SRA 
BSC 
STO 



DATAGROUP HDR IS QF THE FQNH 8 1 TO 0, 
UPLICATI0N FACTOk, BlTSj 8-15 CONSTANT 
IT 1 OF TRE NAME PT 1 JF A DISPLACEMENT 
OWS, ELSE IT IS Ui AtL NAME PTS NOW 
THE SYMBOL LIST, AND ALL CONSTANTS A^E 



MPX Fq 
ERROR 
L FXIT1, 
SQFS 

L NEXT 
Ul WORK 
FINDU 
START 

L F'jDD 

CCWD 

L4 

2 

T,-!0 
L L'GTH 

UJTL 

CCWD 

9 

15 
Z 

riTL 



RTRAN * 

OVE 

Z SKJ 

ST'A 
NEX 
IND 
FIN 
CUR 
PRE 
CON 
EXT 
RIG 
LEN 
REA 
SAV 
CON 
ONE 
RIG 
SKI 
SET 



* DAT 
KLAP 
K pHA 

KT Oh 

i sTm 

bX Rb 
U FlK 

KENT 
SET r 
IROL 
HACT 
HT JU 
UTH 2 
L WOK 

t as 

IROL 

• Wo i 

hT JU 
K }F 
I N T b 



A STATEMEN 
EKRQK SHJT 
Sfc IF OVER 

STRING AD 
NT JD WORD 
G 1 WORK 
ST DATA ST 
STMMT ID W 
OK MOVE 
CARD WORD 
BJT 13" PR 
STIFY 

NORMAL, 3 
D LENGTH 
INTEGER LE 
CARD WORD 
NTEGER IND 

stif y irini 

NO ONE»WD 
GfeR LENGTH 



T 

CM 

LAP E3RO 

DRESS 

ADDRSSS 
AREA ADD 
MOT 
D ADDR. 



ECISION 

f.XTE^DE 

NGTH 

R TO 31 G 

CATOR 

INTEGERS 

TO OME 



# 

* 
FINDC 

FNDC1 

LOOP1 



FIND FIRST CONSTANT IN SUBST AT6MENT 



STX 

STX 

EQU 

LD 

S 



L2 K 
2 J 



I 



K 

SLASH 



SET K U 

SAVt 4 

LABbL FNDCl bQUALS I.OOP1 

NEXT STMNT WORD 

SLASH CONSTANT 



SEITE 



180 

181 

182 

183 

184 

18 5 

186 

187 

188 

189 

190 

l'U 

1^2 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

23fe 

237 

238 

239 



ERR8 



BSC 

MDX 

LD 

S 

BSC 

LDX 

BSC 



J DC 

HDRPT DC 

L.4 DC 

* 



L00P2 



NEXTC 



ERR2 



STO 

LD 

S 

SRA 

BSC 

LDX 

BSC 

EQU 

STX 

MDX 

STX 

esi 

BSI 

LD 

BSC 

LDX 

STX 

LD 

S 

BSC 

LD 

S 

BSC 

LDX 

BSC 

LD 

BSC 

STO 

S 

BSC 

MDX 

MDX 

BSI 

LD 

BSC 

LDX 

BSC 



STAR 

TOP 

* 

* THIS 



DC 
DC 



L 
L 

L 
L 

XI 
L 



L00P2, - BRANCH IF SLASH 

K.l INCKEMENT K K 1 

NEXT AUDK NEXT STUNT ID WORD 

K ADD* CUHRbNT STHNT POINTER 

LIOPI.Z BR IF MUT Sf«NT END 

D8 jLLfcGAL STATEMENT FORMAT 

ERR BR 10 SET UP ERROR 75 

CONSTANTS AND WORK AREA 



L 
L 



4 



INDEX FUR VARIABLES 
DATA QRUUP HEADER WD 
DECIMAL 4 



PT 



CHECK FOR NAMfcS 



K 
J 



L NEXTC 1,Z 
XI Dl 
L ERR 

* 

2 J 
L K,l 

1 HDRPT 

hcrp 

L GCQN 
CQNL 
L ERR8, - 

2 DJP 
I K 

STAR 

L bldh,z 

CONL 
L |E 
L * 3, ~ 
XI D2 

L ERR 

1 -1 
L E^R2,Z 

DJP 

TOP 
L ERR2i- 
L K,l 

X "" 1 

l gcon 

CONL 
BLDHiZ 
D3 
ERR 

CONSTANTS 
/1C 

/iooo 



L 

XI 

L 



CLEAR SUBSCRIPT 
CURkEnT POINTER ADDRESS 
POINTER AFTER LAST CONSTAN 

BK iF NAMES SPECIFIED 

NO NAMES SPECIFIED 

Brt 10 SET UP EhROR 75 

LABtL FUR NEXT INSTRUCTION 

SAVt POINTER AFTER L*ST CO 

INCH JNTER-STMNT POINTED, 

HEAUER WORD POINTER 

INCH WOKK AREA POINTER 

BR 10 GET NEXT CONSTANT 

CONSTANT LENGTH INDR 

BR JF CONSTANT NOT FOUND 

DUPLICATION FACTOR 1 
NEXl STMNT WORD 
ASTERISK CONSTANT 
BR IF NUT ASTERISK 
CONSTANT LENGTH INDICATOR 



BK JF CUNS 
NOT A PUS} 
BR 10 SET 
LAST WOKD 
B« TO SET 
SAVE FOH N 
CHECK DUPL, 
BR IF TUO 
INCKEMENT 
MOVE NOKK 
GET NEXT Q 
CONSTANT L 
BR ]F CUNS 
SET UP ERR 
NOT FOUND 



TAf'T LENGTH 1 

TIVE INTEGER 

UP ERROR 75 

HEADER WORK A-?EA 

ERKOW 75 

AME ITERATION 

ICATION SIZE 

LARGE 

K 

AREA POINTER 

OMSTANT 

ENGTH INDP 

TANT FOUND 

OR 75 IF CONSTAN 

AFTER DUP FACTOR 



ASTtRjSK CONSTANT 
DUPLICATION FACTOR LIMIT 



ROUTINE INCREMENTS Xl, THE WORK AREA POIMTE 



SEITE 



240 
243, 
242 
24 3 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 

255 
256 
257 

258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 

281 
282 
283 
284 
285 
286 
287 
288 
239 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 



* by 

* ARE 

* STA 
* 
INCRP 



ONEt CHECKING TO SEE ThAT THE LIMIT OF THE 
A IS NOT EXCEEDED, IF jT lb EXCEEDED, THE 
TEMENT RECEIVES AN ERRUR 82, 



# 

* 

WKNDA 
WKAA 
# 

* THI 

* THE 

* TO 

* THE 
* 
FINDD 



DC 

MDX 

STX 

LD 

S 

BSC 

LDX 

BSC 



DC 

DC 



1 
1 



*•# RETURN ADDR 

i INCH WOHK AREA POINTER 

WKAA 

W^AA WORK ARfcA POINTER 

WKNDA WORK ARfcA END ADDRESS 

I'-iCRP, Z EX J r IF MU OVERLAP 

Di5 OVEKLAP ERROR INDICATED 

ERR SETUP ERROR 82 

CONSTANT AND wORK AREA 

WKEND ADDK ENU OF WORK AREA 

*.* CURRENT END OF WORK AREA 



FNDD1 
START 



NEXT 



# 

LlFF 

DATA 

H800C 

H20 

TWO 

CONL 

INTL 

SLASH 



bloh 



S ROUTINE LOCATES THE NEXT DATA STATEMENT, 
POINTERS START AND NEXT ARE UPDATED TO POINT 

THE START DF THE NEXT UATA STATEMENT AND TD 
STATEMENT FOLLOWING* NEsPkCT iVbLY, 

DC *-* RETURN ADDRESS 

LDX 12 NEXT POSTER Tu NEXT STMNT ID. W 

STX L2 SAVE 1 SAVt FOR MOVE 

STX 2 START SAVt aS START OF STM 

EQU * 1 LABEL ^EXT JNSTRUCTI 

ED L *-* SfMNT ID WORD, MODIF 

SRA 2 RIGHT JUSTIFY STMNT 

AND LlFF EXRaCT WORD COUNT 

A START STAKT OF 3 T M N T ADDR 

STO NEXT ADDK QF NEXT STMNT \ 

S U EOFS END'OF STKlNG ADDRES 

BSC L EXIT,Z- EXIl JF END OF STRIN 

ED 2 C SfMNT ID WORD 

SRA 11 SIGwT JUSTIFY STUNT 

S DATA DATA STMNT TYPE CONS 

BSC I FINDD, - EXIT jF DATA STMNT 

EQU * 1 UABtL NfcXT INSTPUCTI 

LDX L2 *-* SET'PT STMNT ID, MOD 

MDX F 1DD1 BH TO FjND NEXT STMN 

CONSTANTS AND WqRK AREA 

Dc /IFF STMNT Wp COUNT MASK 

D C /IF DATa STMNT TYPE CODE 

DC /8001 NAME Bit PLUS % 

DC /20 DEFINED RJT 

DC 2 DECIMAL TfcO 

Dc *** LENuTH uf constant 

DC *** INTfcGER ELEMENT LENGTH 

DC /21 / 'CONSTANT 

B IILO DATAGROUP HEADER WORD 

LD CONL CONSTANT LENGTH 

STO CONLT SAVt FOK NAMfc ITERATION 

ED DJP DUPLICATION FACTOR 

SLA 3 TO HIGH 13 BITS 



NT 

ON APD 

IABLE 

wd :nt 


D WDRD 
S 

G 


TYPE 
TANT 


ON ADD 

IF I ABU 

IT ID W 



SEITE 



300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

33.0 

311 

312 

313 

314 

315 

316 

317 

33,8 

319 

320 

321 

322 

323 

324 

325 

326 

327 

32« 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 



NEXTN 



NXTNl 



NXTNA 



ERR4 



A 

STO 

LD 

STO 

LDX 

HDX 

MDX 

MDX 

LD 

BSC 

LDX 

LD 

S 

BSC 

EQU 

LD 

SLA 

SRA 

BSC 

HDX 

MDX 

STX 

LD 

S 

BSC 

LDX 
BSC 



THREE 

DUP 

MOST 

CQNL.T 

CONTT 

BLANK 

CONTP 

T8000 

TNAME 

# 

* 

NXTN3 



NXTN4 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



LD 

BSC 

LD 

S 

BSC 

LD 

BSC 

MDX 

EQU 

HDX 

STX 

LD 

S 

SRT 

D 

A 

STO 

LD 



12 



CQNL 
HORPT 
CQHTP 
CONTT 

J 

SUB,0 
NXTN4 



2 
2 



j. 



L ERR2#- 
13 SOFNS 
2 

1 

NXTN«i, 



3 



3 
3 



3 
3 
3 



L 
L 



14 

z 

_ ** 

~o 

-3 

MOST 

MOST 

EOFST 

NXTNl, Z 



XI D4 
L ERR 



CONSTANT LENGTH 

DATaGROuP HEADER WORD 

CONSTANT TYpb 

SAVt FOK NAMb ITERATION 

SET jNDbX REG 2 J 

CHECK SUBSC TEMP-SKIP I r 

BR IF NAMfc NOT YET FULL 

INCK J J 1 

NEXT STMNT WORD 

BR IF MUT A NAME *UM3 

INDEX REG 3 SYMBOL TABLE P 

NEXT STMNT WORD 

SYMBOL TABLE EMTRY 

BR iF name found 

LABEL NEXT INSTRUCTION 

EXTHACT DIMENSION 

♦INFORMATION 

* 

SKJH NEXT IF NO D I MANSION 

DEC* SYMBOL TABLE POINTER 

DECK SYMBOL TABLE POINTER 

addk temp 

CURRENT SYMBOL TfiL POINTER 
END OF SYMBOL TABLE ADDRES 
BK IF NOT STRING END 
NAME JS UNDEFINED 
SETUP ERROR 80 *VlM3 



CONSTANTS AND WoR* AREA 

3 DECjMaL 3 CONSTANT 

*.* DJPUCAl IQN FACTOR 

*.• INTfcGER~SAVE TEMPORARY 

*„# CONSTANT LENGTH TEMPORARY 

*.* CONSTANT TYPb TEMPORARY 

/4040 WORU OF'EBCDIC BLANKS 

*„* CONSTANT TYPE 

/BO00 NAMt BIT CONSTANT 

*„# SAVt NAME TEMPORARILY H=RE 

CONTINUE BUILU DATAGROUP HEADER WORD 



T 8 

2 
NXTNA, Z 

1 

Z 
1 
* 

1 

MOST 

SOFST 

NOST 

16 

TMREfc 

H3000 

T'JAMb 





NEXT S 
SKIK J 

BLANK 
2ND WD 
BR JF 
2ND HA 
SKIR N 
INCH S 
LABtL 
JNCK S 
SYMBOL 
STAHT 
CJRKEN 
MAKfc N 
NO, "OF 
NAME B 
SAVE N 
SYMBOL 



TMNT WOR 
F 2ND wq 
2ND WORD 

FR SYMB 
NAMfe MOT 
LF OF MA 
EXT IF N 
TMNT POI 
FUR NEXT 
TMNT POI 

TABLE P 
OF SYMUO 
T PQINTE 
OHMAL DI 

WORDS P 
IT 
AME 

TABLE I 



D 

PD OF NAMH 

OF NAME 
CL TABLE 

FOUND 
HE 

OT NAME 
NTER J J i 

INSTRUCTION 

NTER 

CINTER 

L TABLE ADDR 

P VALUE 

VIDEND 

ER ENTRY 



O WORD 



SEITE 



360 OR 

361 STO 

362 BSC 

363 SRA 

364 STO 

365 S 

366 BSC 

367 UD 

368 S 

369 BSC 

370 ERR9 LDX 

371 BSC 

372 NXTN8 LD 

373 MDX 

374 LD 

375 STO 

376 S 

377 BSC 

378 BSC 

379 LD 

380 S 

381 BSC 

382 LD 

383 STO 

384 BSI 

385 LD 

386 A 

387 STO 

388 MDX 

389 MDX 

390 MXT8A LD 

391 STO 

392 RSI 

393 LD 

394 SLA 

395 SRA 

396 STO 

397 STO 

398 BSC 

399 BSI 

400 MDX 

401 MDX 

402 MDX 

403 LD 
4Q4 S 

405 BSC 

406 NXTN7 LD 

407 MDX 

408 LD 

409 S 

410 BSC 

411 EBR13 FEQU 

412 LDX 

413 GERR BSC 

414 S 

415 STO 

416 BSC 

417 LD 

418 S 

419 STO 



HZO 
3 
L E^R9, 

14 

HOST 

CONTT 
L MXTM8, - 

CONTT 

TWO 
L * 3, - 

1 D9 
L ERR 
L LMGTH 
L NOST,0 

imtl 

NaML 

CONLT 
L FrRRll, Z 
L NXTBA,* 

CONTT 

Tu'O 
L MXT8A,Z 

BLANK 
1 
L IMCRP 
I HDRPT 
L ONE 
I HDRPT 
L C3NLT.1 

NXTN8 

TMAME 
1 
L IMCRP 
3 

3 

14 

DIMN 

DJMNT 
L NXTN7, - 

L riCRP 

L SjB.O 
NXTNZ 

1 "I 

2 
LPAR 

L NXTM5, - 
L OME 
L DIMN,0 

3 -3 
SJB 

L * 3,-Z 

* 

XI Dl3 

L ERR 

DUP 

TPMP 
L MXTN9, 
3-3 

TEMP 

SJB 



SET DEFINED HIT 

RESlORE iy WORD 

BR IF NUT A VARIABLE- ERRO 

DATA TYPE BITS 

CON TyPfc TEMPORARY 
8k IF SAMfc TYPE 
CONSTANT TYPE TEMP 

8K JF HOLLERITH DATA 

DATA TYPES DO HOT MATCH 

SET Up ERROR 77 

REAL VAHlABLb LENGTH 

SKIP JF REAL VARIABLE 

INTEGER LENGTH 

SAVE AS ELEMENT LENGTH 

CONSTANT LENGTH TEMPORARY 

BR TO SET UP ERR 77 IF MEG 

BR IF ZERO (NEG BR ABOVE) 

GET CONSTANT TYRE TF*P 

COMPARE TO TWQ 

BR tO STORE NAME IF NO JOM 

ELSfc GEl A BLANK 

PUT~ the'blank Ifl STRING 

GO MOVE POINTER 

GET DATA GROUP ME ADER aJOR 

INCREASE IT BY ONE 

REPLACE THE MODIFIED WORD 

iNCKEASb CONSTANT LENGTH 

LOOP BACK 

GET "THE NAME SAVED FARIL.ER 

PUT NA^fc ON STRING 

GO MOVE POINTER 

SYMbOL TABLE ID WORD 

EXTKACT AND RIGHT JUSTIFY 

DIMENSION BITS, 

SAVb DIMENSIONALITY 

SAVE FOK SUBSC CALCULATION 

BR iF NOT DIMENSIONED 

INCH WORK AREA POINTER 

TEST FOW SUBSCRIPT 

BR IF SUBSCRIPT 

DECK WORK AREA POINTER 

NEXT STMNT WORD 

LEFl PARENTHESIS CONSTANT 

8R TO GET SUBSCRIPT 

SKJP IF NQT DIMENSIONED 
NEXT SYMBOL ID WORD 
REMAINING ELEMENTS IN NAME 
BR iF S08SCRIPT OK 
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REAL CONSTANT INDR 


767 


LMGTH 


DC 







LENbTH UF REAL INDR 


768 


MEG 


DC 




*-# 


NEGaTJVE CONSTANT HDR 


769 


* 










770 


* 






PROCESS 


REAL CONSTANTS 


771 


* 










772 


GCON1 


LD 


3 





NEXl STMNT WORD 


773 




S 




REAL 


REAL CONSTANT INDR 


774 




BSC 


L 


GC0N3.Z 


BR IF NgT A REAL CONSTANT 


775 




LD 


3 


1 


FIRST WuRD OF REAL CONSTAT 


776 




STO 


1 





WORK ARtA 


777 




STO 




WD 


SAVfc JN CASE NEGATIVE 


778 




LD 


3 


2 


SECUND WOHO OF REAL CON 


779 




STO 


1 


1 


WORK AREA 





SEITE 


14 






780 




LD 




L v !CTrt 


LENGTH UF REAL JNDR 


7 81 




STO 


L 


CONL 


set'constant length 


782 




S 


L 


THREE 


THRbE 


783 




STO 




EXTND 


NORMAL KRfcClSlON NON-Z-RO 


784 




BSC 


L 


IMC3.Z 


BR iF MURMAL PRECISION 


785 




LD 


3 


2 


2ND WQRU OF EXTENDED REAL 


786 




STQ 




WD 


SAVt {N CASE NEGATIVE 


787 




LD 


3 


3 


3RD WQRU UF EXTENDED REAL 


788 




STO 


1 


2 


WORK AREA 


789 




MDX 


3 


1 


SPECIAL I NCR FOR 3RD WORD 


790 




BSI 


L 


INCRP 


INCH WOKK AREA POINTER 


791 


INC3 


MDX 


3 


3 


UP'DATfc STUNT POINTER 


792 




BSI 


L 


I jCRP 


INCREMENT WORK AREA POIMTE 


793 




BSI 


L 


IJCRP 


TWICE, 


794 




LD 




NER 


NEGATjVfc CONSTANT INDR 


795 




BSC 


L 


GCONX, - 


£X I T IF POSITIVE 


796 




LD 


3 


-1 


LAST WOKD THIRD OR SECOND 


797 




MDX 


L 


EXTND,Q 


SKIP NEXT IF EXTENDED PREC 


798 




AND 




HFFOP 


MAS* OUT bXpONtNT 


799 




STO 




WD 1 


SAVt FOK COMRLEHENT 


800 




EOR 


3 


-1 


IF NORMALi SET EXPONENT 


801 




STO 




EXP 


IF eXTENDtD, SET ZERO 


802 




SRT 




24 


ClEaR ACC AND EXT 


803 




SD 




wn 


COMPLEMENT MANTISSA 


804 




STQ 


1 


-2 


LAST-1 SnORD TO WORK 


805 




RTE 




16 


LAS| WOKD 


806 




OR 




FXP 


SET" EXPONENT IK NORMAL 3 RE 


807 




STO 


1 


-1 


LAS! wOKO TO WPRK 


808 




MDX 




GQONX 


EXIT 


809 


# 










810 


WD 


BSS 


E 




TEMP FOK COMPLEMENTING 


811 


EXTND 


DC 







NORMAL PRECISION NONZBRD 


812 


MFF00 


DC 




/FF0O 


HIGH QRUER 8'BIT MASK 


813 


EXP 


DC 







EX'PuNENl FOR NORMAL PRE: 


814 


* 










815 


* 






PROCESS 


INTfcGfeR CONSTANTS 


816 
817 


* 
GC0N3 


LD 


3 





LOOK FOK PARTIAL WORD S=>EC 


818 




AND 




H7E0Q 


EXTHACT 1ST CHAP OF SYM30L 


819 




EOR 




SVMZ 


CHECK FUR A I 


820 




BSC 


L 


BPWS# - 


BRANCH IF SO, 


821 




MDX 




* 5 


BR TO CHECK FOR OPERATOR 


822 




LD 


3 





LOAU CHARACTER 


823 




EOR 


L 


LPAR 


CHK FQR LEFT PARENTHESIS 


824 




BSC 


L 


FpWSi - 


BR iF LtFT PARENTHESIS 


825 




LD 


3 





CHK FQR OPERATOR 


826 




BSC 


L 


ERR8,- 


BRANCH IF SO ERROR , 


827 




BSI 


L 


GCONI 


GET iNTfcGER 


828 




BSI 


L 


INCRP 


INCH WOKK AREA POINTER 


82.9 




MDX 




GCONX 


EX II 


830 


FPWS 


LD 




MEG 


NEGATjVb CONSTANT INDICATO 


8.11 




BSC 


L 


ERRIC.Z 


3K iF NfcG PARTIAL WORD 


832 




SRA 




16 


CLEAR ACCUMULATOR 


833 




STO 




PA 


clear partial wd acc 


834 




STO 




PWTOT 


clear partial word count 


835 


* 










836 


* 






PROCESS 


PARTIAL WURD CONSTANTS 


837 


* 










838 


GC0N9 MDX 


Vj 


. 1 


DISCARD DELIMITER 


839 




BSI 


L 


GCONI 


GET INTfcGfeR 



SEITE V. 



84 




LD 


1 





COUNT FROM WORK AREA 


841 




STO 




P ,J C T 


SAVt COUMT FOR THIS FIELD 


842 




A 




PWTOT 


UPDATfc TOTAL COUNT 


843 




STO 




P4TQT 


RESTORE" 


844 




S 




L16 


DECIMAL 1ft 


845 




BSC 


L 


* 3» 


BR KRATlAL WORD COUNT 0< 


846 


ERR12 


LDX 


XI 


Di2 


PARTIAL WD CMT GT 16 


84 7 




BSC 


L 


ERR 


8K 10 SET UP ERROR 79 


848 




LD 


L 


CQNL 


CONSTANT LENGTH 


849 




BSC 


L 


ERR12, - 


bh Constant not found 


850 




LD 


-7 

o 





NEXT STMN'T WORD 


851 




S 




EQSGN 


EQUAL SJGN 


852 




BSC 


L 


E3R12.Z 


BR NO EUUAL SIGN 


853 




MDX 


3 


1 


INCH STMNT POJNTER 


854 




BSI 


L 


GCONI 


GET INTEGER 


855 




STX 


2 


SAV2 1 


SAVt JNUEX REG 2 


856 


PWCT 


F.QU 




* 1 


PARTIAL WD ELEMENT LENGTH 


857 




LDX 


L2 


*«* 


GbT'SHlF'T COONT, MODIF I ABL 


858 




LD 


1 





HEADER WD FROM WORK AREA 


859 




SRT 


n 







860 




BSC 


L 


ERR12,Z 


BR IF CUMSTAOT TOO LARGS 


861 




LD 




PJ 


PARTIAL WORD TO ACCUMULATO 


862 




SLT 


o 

c 





PUT'lN NEW FIELD 


863 


SAV2 


LDX 


U2 


*-* 


SET XR2, MODIFIABLE 


864 




STO 




n 


STOKE UPDATED PARTIAL WDRD 


865 




LD 


3 





NEXl STMNT WORD 


866 




S 


L 


COMMA 


COMMA CONSTANT 


867 




BSC 


L 


GG0N9, - 


BR 10 GET NEXT FJELD IF AN 


86B 




LD 


3 





NEXT STMNT WORD 


869 




S 


L 


RPAR 


RIGHT PARENTHESIS CONSTANT 


870 




BSC 


L 


ERR12,Z 


ERRUR If- NOT RT PARt : NTH = SI 


871 




LD 




P:-! 


PARI IAL WURD 


872 




STO 


1 





TO WORK AREA 


873 




BSI 


L 


I'iCRP 


INCH WORK AREA POINTER 


874 




MDX 


3 


1 


INCH STMNT POINTER 


875 




STX 


13 


K 


SAVE AS K 


876 




LDX 


3 


4 
X 


SET' iNTtGER SWITCH 


877 




STX 


L3 


CONTP 


CONSTANT TYRE 


87B 




STX 


L3 


CONL 


constant length 


879 




MDX 




3AV3 


BR 10 RESTORE XR3 AND EXIT 


880 


GCONX 


STX 


L3 


K 


SAVE K 


881 


SAV3 


LDX 


L3 


*m* 


RESTORE XR3, MODIFIABLE 


882 




BSC 


I 


GCON 


EX I T 


8B3 


# 










884 


* 






CONSTANTS 


AND WORK AREA 


885 


* 










886 


PW 


DC 




* m* 


PARI IAL WgRD TEMPORARY 


887 


PWTOT 


DC 




*m* 


PARilAL WORD TOTAL LENGTH 


888 


U16 


DC 




16 


PARllAL WD COUNT LIMIT 


889 


H7E00 


DC 




/7E00 


MASK TO GET 1ST CHAR 


890 


SYHZ 


DC 




/520Q 


ZDtNQTES HEX DIGITS FO.LC 


801 


PWl 


BSS 


h 


1 


HOLDS 1-4 CHARACTERS H=X 


892 


PW2 


DC 




*m* 


DIGITS w/ Z PRECEDING , 


893 


HCO00 


DC 




/cnoo 


MASK TO GET ZONE BITS 


894 


HFOOO 


DC 




/raoo 


MASK TO G&T NUMERIC PART 


895 


H9000 


DC 




/ 9 


GT IHAN WHICH ARE CHARS 


896 


H18Q0 


DC 




/1800 


ADD'Tq NO, PART TO GET 3IN 


897 


HTCOO 


DC 




/rcoo 


MASK TO GET 1ST CHAN 


8<58 


EQSGN 


DC 




/3E 




809 


* 













SEITE 


16 






900 


* 




CQNTIMUE 


PROCESSING PARTIAL WD CO\tS 


901 


t 








902 


BPWS ID 


L 


MEG 


CHK FOR NfcGATIVE 


903 


BSC 


L 


ERR1Q,Z 


BRANCH IF SO ERROR , 


904 


STO 




PJ 


CLEAR PARTIAL WORD 


905 


STO 




Pa' 2 


ZERu 2^U HAI.K Of SYMBOL. 


906 


LD 


3 


c 


CHELK FJRST CHAP AFTER 


907 


SLA 




7 


THE'Z, MUST BE NDN-PLAN<., 


908 


AND 




HFC 


EXTRACT THE CHAR 


909 


DSC 


L 


En 4, - 


B* 10 SfcT UP ERROR IF BLAN 


910 


SLT 




32 


CLEAR EXTENSION 


911 


LD 


3 





GET 1ST HALF 


912 


SL,A 




1 


SHI*. T OUT INDICATOR BIT 


913 


STO 




P.<1 


SAVt JN PW1 TEMPORARY 


914 


LD 


3 


1 


CHECK FUR 3-5 CHARS 


915 


BSC 


L 


SVMGT,- 


BRANCH IF NOT 


916 


SLA 




1 


SHJI-T OUT INDICATOR 8 J T 


917 


SRA 




1 


REPLACE IT W/ ZERO, MQV = 


91« 


SRT 




14 


LAST 15 BjTS TO Q, TO L=AV 


919 


OR 




P-'i 


the'chakacte«s gontjguojs 


920 


STO 




p ,j i 


AND LfcH JUSTIFIED IM 


921 


RTE 




16 


PW1 AND PH2, 


922 


STO 




P !2 




923 


MDX 


3 


1 


INCKEMENT STHITjG POINTER 


924 


LD 


3 


1 


CHEUK TU BE SURE THE NEXT 


925 


BSC 


L 


ERR 12, Z 


CHAW JS AN OPERATOR, BR NO 


926 


SYMGT STX 


2 


X2S 1 


SAVfc X2 


927 


LDX 


2 


6 


SET SHIFT COUNTER FOR 1ST 


92H 


GTHD LDD 




P/'i 


LUAU THE PW SPEC ZHHHH 


929 


SLT 


? 





GET THE NTH CHARACTER 


930 


AND 




MC000 


CHK ZQME BITS 


931 


BSC 


L 


CKAD# - 


BR IF A TU Ft 


932 


S 




HC0 


ELSb JT MUST BE NUMERIC, 


933 


BSC 


L 


ER14,Z 


ERRUR II- NOT! 


934 


LDD 




PJl 


GET THE DJGIT, J ?J 6*8 IT 


935 


SLT 


2 





CODE, LfcFT JUSTIFY IN A^C, 


936 


SLA 




2 


STRIP ZONE BITS 


937 


AND 




HE000 


DROP qThEH DIGITS 


93H 


BSC 


L 


PTHDi - 


BRANCH UN DIBIT ZERO 


939 


S 




1190 


CHK WJTHIN RANGE TO 9 


940 


BSC 


L 


EfU4,-Z 


8K NOT TO 9 


941 


A 




H90 


RESTORE ACTUAL VALUE 


942 


PTHD SRT 




16 


LEF) JUSTIFY DIGIT IN EX- 


943 


UD 




PW 


TENSION, THE" APPEND IT TO 


944 


SLT 




4 


THE" PARTIAL WD BEING BUILT 


945 


STO 




P, 1 




946 


MDX 


2 


6 


INC* XR2 TO UET NEXT CHAR 


947 


MDX 




BTHD 


BR 10 GET CHARACTER 


948 


CKAD LDD 




P. 11 


CHECK DIGITS A-F, 


949 


SLT 


2 





GET THE CHARACTER 


950 


AND 




MFCOO 


DROK OTHER CHARACTERS 


951 


BSC 


L 


E-IDHD, 


EXji JF 000000 


952 


S 




H18 


CHEuK TU SEE IF IN RANG" 


953 


BSC 


I 


PR14|-Z 


BRANCH IF NOT A-F, 


954 


A 




HFCOO 


ADD BACK. 1800 PLUS 2400 TO 


955 


SLA 




2 


GET 8JNARY EQUIVALENT, 


956 


HDX 




PTHD 


INS I ALL IN PARTIAL WORD 


957 


EMDHD LD 




PJ 


PARUAL WORD TEMPORARY 


958 


STO 


1 





STOkE PARTIAL ID 


959 


OSI 


L 


I'!CRP 


INCH wOKK AREA POINTER 



SEITE 17 



960 
961 
962 
963 
964 
965 
966 
967 
96B 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
9R0 
931 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 

992 

993 

994 

90g 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 



X2S 
ER14 

* this 

* CONS 

* WK A 
* 
GCONl 



MDX 
STX 
UDX 
STX 
STX 
UDX 
MDX 
UDX 
BSC 



3 
U3 

3 
L3 
U3 
U? 



SUBROUTINE IS 
T WHICH IS PUT 
REA PUINTER IS 



0C0N6 
GCON7 



GC0N8 



* 
* 

TEN 
MOS 



DC 
SLT 

STO 

UD 

STD 

MDX 

UD 

BSC 

SLA 

STO 

MDX 

UDS 

UD 

SLA 

BSC 

BSC 

MDX 

BSC 

SLA 

SRA 

STO 

S 

BSC 

LD 

M 

SLT 

BSC 

SLT 

A 

BSC 

STO 

LDD 

SLT 

STD 

MDX 

S 

MDX 

STO 

MDX 

MDX 

BSC 



DC 
BSS 



1 K K 1 

K SAVfc K 

2_ 

C1NTP CONbTANl TYPE 

CQNL CONSTANT U ENG ™ 

*„* REST0HE'XH2| modifiable 

SAV3 BR TO RbSTOPE XR3 AND EXIT 

Dl4 ERROR * CHAP NOT A-F IN 

FRR PAHllAL WORD SPEC, 

USED By QCUN TO GET AN INTEGE 
IN NEXT A^AIL WORK AREA WO^D, 
UPUATEu, 

*„* RETURN ADDRESS 
32 CLEAR ACC AND EXTENSION 
1 CLEAR NEXT WORK AREA WO^D 

3 fj NEX| STMNT WORD 

[MS SAVfc INTEGER WORD 1 
INCH STMNT POINTER 
NEXi STMNT WORD 
BR If NU WORD 2 
K^OgK OyT HIGH BIT 
SAVfc jNTECiER WORD 2 
INCH STMNT POINTER 
CLEAR CARRY MIT 
INTfcGER TEMPORARY 

BR IF NUT FINISHED 

BR JO EKRUR IF MOT A DIGIT 

BR Finished 

BR TO ERROR IF MOT A DI3IT 

STRIP Ol- F ZONE BITS 

ISOLATE DJGII 

SAVfc DIBIT 

DIGIT U1MJT VALUE 

BR i'F NUT A DECIMAL DIGIT 

ACCUMULATED TOTAL 

MPY~BY 10 



3 1 
3 
L GC0N6,- 

1 

NQS 1 
3 1 



NDS 

2 
L * 3,C 

U ERR6,Z 

GC0N8 
U ERR6,- 

1*? 

U UTST 
NINE 
L F:RR6,-Z 

1 
TEN 

1 
U ERR6#Z 

15 
U MOST 
L ERR6#0 
1 

rns 

6 

NOS 
GCON7 
1 



u 
u 
I 



IF.G, 



1 



CONL#l 

CHNTP,1 

OCONI 



BR if value too large 

SHJKT INTU ACCUMULATOR 
ADD^LATfcST DIGIT 

br if value too large 
update accumulated total. 

INTfcGER TEMPORARY 

SHJi- T OFF PROCESSED DIGIT 

RESTORE 

br ro fjnl) next digit 
negate integer 
skip next if nfg imdr 
set integer negative 
inch constant length 
inch constant type 

EX I l 



0~F 



CU'STANTSi WOkK, AND PATCH ARf,A 



1! 
2 



DECiMAL 10 MRY CONSTANT 
INTfcGER TfcMRORARY STORE 



SEITE 18 



3,020 
1021 
1022 
10 2^ 
1024 

10 25 



MINE DC 
PATCH BSS 
WORK BSS 
WKEND EQU 

* 

END 



9 DtClMAU 9 DIGIT U X M I T CON 

50 PATCH AKEA 
0VERL-**32Q*4~ WURK A«EA FOR DATA 
* END OF wK AREA 1 

BEGIN 



